unit uFrmTableUseGraph;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TFrmTableUseGraph = class(TForm)
    Panel1: TPanel;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ShowTableUseGraph(TournamentID: string);
  end;

var
  FrmTableUseGraph: TFrmTableUseGraph;

implementation

uses uFrmMain;
{$R *.dfm}
{ TFrmTableUseGraph }

procedure TFrmTableUseGraph.ShowTableUseGraph(TournamentID: string);
var
  i: integer;
begin
  for i := ComponentCount - 1 downto 0 do
  begin
    if Components[i] is TPanel then
    begin
      Components[i].Free;
    end;
  end;
  FrmMain.OracleQuery1.Close;
  FrmMain.OracleQuery1.SQL.Text := '';
  FrmMain.OracleQuery1.Execute;
  show();
end;

end.
